home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs17.d81 / willo.sda / WILLOWISP (.txt) < prev   
Commodore BASIC  |  2009-10-10  |  32KB  |  701 lines
  1. 100 REM WILL O THE WISPS
  2. 105 REM BASIC ADVENTURE BY MARK CAPPELA
  3. 110 REM
  4. 115 REM C64 ML SCREEN FORMAT
  5. 120 REM ADDED 02/22/91 BY PAUL COLLIER
  6. 125 :
  7. 130 IF PEEK(212)=0 THEN150
  8. 135 PRINT"[212]HIS IS AN ADVENTURE FOR THE C64"
  9. 140 PRINT"[211]ORRY, BUT DUE TO THE FORMAT ROUTINE,
  10. 145 [153]"IT WON'T WORK IN C128 MODE":[128]
  11. 150 [137]160
  12. 155 [153]:[153]"(null)ELL, RIGHT$'LL HELP YOU ALRIGHT... RIGHT$'LL ";:[142]
  13. 160 [156]:[141]305:[141]170:[141]405::[128]
  14. 165 [143] TITLE
  15. 170 [151] 53270,[194](53270)[176]16:[143] MULTI-COLOR MODE ON
  16. 175 [151]53280,11:[151]53281,0:[143] SCREEN COLORS
  17. 180 [153]"LOADPOKE******************"
  18. 185 [153]"(null)ILL '(null) THE (null)ISP"
  19. 190 [153]"POKE******************"
  20. 195 [153]"BY  (null)ARK LENAPELLA"
  21. 200 [153]"SYS   (null)OU ARE A POOR COUNTRY BOY WHO IS ";
  22. 205 [158] QX,"DESTINED TO MARRY THE BEAUTIFUL AND KIND "
  23. 210 [158] QX,"PEEKRUNHILDE ON TOMORROW MORN. PEEKUT BEING "
  24. 215 [158] QX,"YOUNG AND STUPID, YOU HAVE DECIDED TO "
  25. 220 [158] QX,"SPEND YOUR LAST DAY OF FREEDOM "
  26. 225 [158] QX,"EXPLORING THE ENDLESS FOREST THAT "
  27. 230 [158]QX,"SURROUNDS YOUR SHACK. (null)OU COULD STAY "
  28. 235 [158]QX,"HOME AND WATCH TV BUT THEN YOU'D NEVER "
  29. 240 [158]QX,"GET LOST IN THE FOREST AND FIND HIGH "
  30. 245 [158]QX,"ADVENTURE AND LEARN TO BECOME A MAN "
  31. 250 [158]QX,"AND WHAT THE MEANING OF LIFE IS. ":[153]
  32. 255 [153]"   (null)OW IN THE TRADITION OF ALL THESE
  33. 260 SYSQX,"TYPES OF GAMES, [201]'M SURE YOU'LL GO ALONG "
  34. 265 SYSQX,"WITH THE OBVIOUS AND GET YOURSELF LOST. "
  35. 270 SYSQX,"[211]O NOW THAT [201]'M BUSY, WHY DON'T YOU DO "
  36. 275 SYSQX,"JUST THAT?? [200]AVE FUN ANYHOW...
  37. 280 [153]"   (null)RESS RETURN WHEN YOU ARE READYSINCMDCMDCMD";
  38. 285 [133] AN$
  39. 290 [153]"LOAD(null)ILL '(null) THE (null)ISP":[151]53270,[194](53270)[175]239
  40. 295 [142]
  41. 300 [143] VARIABLES / DATA
  42. 305 Y[178]10:F[178]20:G[178]30:H[178]40:R[178]50:J[178]60:K[178]70:L[178]80:QX[178]49152
  43. 310 [134] FL%(10),ITM%(10),ITM$(10),EX$(10)
  44. 315 [129]I[178]1[164]9:[135]ITM%(I),ITM$(I),EX$(I):[130]
  45. 320 [131] 30,BOTTLE,"ATNN EMPTY BOTTLEWAIT LIES DISCARDED NEARBY
  46. 325 DATA 67,WATER,"[193] SMALL POOL OF WATER[146] COLLECTS HERE
  47. 330 [131] 0,BROOM,"ATN SMELLY WITCH'S BROOMWAIT FLOATS NEARBY
  48. 335 DATA 59,BALL,"[193] MAGICAL CRYSTAL BALL[146] GLISTENS HERE
  49. 340 [131] 51,CARPET,"ATN FLYING CARPETWAIT IS ROLLED UP HERE",0,,ING
  50. 345 [131] 75,GUANO,"ATN PILE OF BAT GUANOWAIT SLOWLY ROTS HERE
  51. 350 DATA 31,PEEL,"[193]N OLD BANANA PEEL[146] IS LYING IN THE DIRT
  52. 355 [131] 10,CAN,"ATNN EMPTY BEER CANWAIT RUSTS HERE
  53. 360 PSMZ=1
  54. 365 ITM$(6)="[193] GOLD WEDDING RING IS IN YOUR POCKET FOR YOUR SWEET [194]RUN"
  55. 370 ITM$(6)=ITM$(6)+"HILDE FROM THE GREAT MAGICIAN [210]ALPH."
  56. 375 TRUE=-1:FALSE=-1
  57. 380 REM FLG(1) - INSIDE CAVE
  58. 385 REM FLG(2) - VISITED RALPH
  59. 390 REM FLG(3) - PRUDENCE DEAD
  60. 395 GOSUB3445:REM POKE FORMAT ROUTINE INTO MEMORY AT 49152
  61. 400 RETURN
  62. 405 :
  63. 410 GOSUB455      :REM LOCATION
  64. 415 IF PS=66 THEN GOSUB1230
  65. 420 IF EOG THEN RETURN
  66. 425 GOSUB525      :REM OBJECTS / EXITS
  67. 430 GOSUB575      :REM INPUT / DECODE
  68. 435 GOSUB695      :REM ACTION
  69. 440 IF EOG THEN RETURN
  70. 445 GOTO410
  71. 450 REM
  72. 455 IF INT(RND(1)*100)+1<11 THEN PRINT:PRINT"[193] SMALL WISP IS FLOATING HERE...
  73. 460 MVE[178]MVE[170]1:[139] MVE[178]1 [167] [153]:[137]475
  74. 465 [139] MVE[178]4 [167] MVE[178]0
  75. 470 [142]
  76. 475 [139]PS[179]11[167][145]PS[137]1750,1790,1820,1840,1865,1890,1925,1960,1995,2025
  77. 480 [139]PS[179]21[167][145]PS[171]Y[137]2070,2115,2150,2180,2215,2245,2250,2255,2260,2265
  78. 485 [139]PS[179]31[167][145]PS[171]F[137]2270,2275,2305,2335,2360,2380,2395,2425,2445,2475
  79. 490 [139]PS[179]41[167][145]PS[171]G[137]2490,2520,2535,2555,2565,2590,2610,2625,2650,2665
  80. 495 [139]PS[179]51[167][145]PS[171]H[137]2680,2695,2700,2705,2710,2715,2720,2725,2750,2770
  81. 500 [139]PS[179]61[167][145]PS[171]R[137]2785,2805,2825,2840,2860,2875,2890,2905,2920,2935
  82. 505 [139]PS[179]71[167][145]PS[171]J[137]2945,2965,2980,2995,3010,3030,3050,3070,3090,3110
  83. 510 [139]PS[179]81[167][145]PS[171]K[137]3125,3140,3160,3175,3190,3205,3220,3230,3245,3265
  84. 515 [139]PS[179]91[167][145]PS[171]L[137]3285,3300,3315,3330
  85. 520 [142]
  86. 525 [153]:[129]I[178]1[164]9:[139]IT%(I)[178]PS[167][153]""EX$(I)
  87. 530 [130]:[153]"OPEN(null)BVIOUS EXITSSYSWAIT:";:[139]N[177]0[167][153]" N";
  88. 535 [139]S[177]0[167][153]" S";
  89. 540 [139]E[177]0[167][153]" E";
  90. 545 [139]W[177]0[167][153]" W";
  91. 550 [139]NE[177]0[167][153]" NE";
  92. 555 [139]NW[177]0[167][153]" NW";
  93. 560 [139]SE[177]0[167][153]" SE";
  94. 565 [139]SW[177]0[167][153]" SW";
  95. 570 [153]:[142]
  96. 575 [143]
  97. 580 [153]:[133]"SINCMDCMDCMD";COM$
  98. 585 [139]COM$[178]"SIN"[167][153]"ON ON";:[137]580
  99. 590 [139](COM$[178]"AGAIN"[176]COM$[178]"REPEAT")[175]VERB$[179][177]""[167][142]
  100. 595 [139]COM$[178]"AGAIN"[176]COM$[178]"REPEAT"[175]VERB$[178]""[167]3350
  101. 600 CP[178]0:[141]660
  102. 605 VERB$[178]BY$
  103. 610 [141]660
  104. 615 NOUN$[178]BY$:[139]VE$[178]"NORTH"[167]VE$[178]"N"
  105. 620 [139]VE$[178]"SOUTH"[167]VE$[178]"S"
  106. 625 [139]VE$[178]"EAST"[167]VE$[178]"E"
  107. 630 [139]VE$[178]"WEST"[167]VE$[178]"W"
  108. 635 [139]VE$[178]"NORTHEAST"[167]VE$[178]"NE"
  109. 640 [139]VE$[178]"NORTHWEST"[167]VE$[178]"NW"
  110. 645 [139]VE$[178]"SOUTHEAST"[167]VE$[178]"SE"
  111. 650 [139]VE$[178]"SOUTHWEST"[167]VE$[178]"SW"
  112. 655 [153]:[142]
  113. 660 [143]
  114. 665 [139] CP[177][195](CO$)[167] BY$[178]"":[142]
  115. 670 [129] SP[178]CP[170]1[164][195](CO$):[139] [202](CO$,SP,1)[179][177]" "[167] [130]
  116. 675 BY$[178][202](CO$,CP[170]1,SP[171]CP[171]1):CP[178]SP:[139]BY$[178]"THE"[176]BY$[178]"IT"[176]BY$[178]"A"[167]665
  117. 680 [139] BY$[178]"AN"[176]BY$[178]"THAT"[176]BY$[178]""[167]665
  118. 685 [139] BY$[178]"JUMP"[176]BY$[178]"GO"[176]BY$[178]"TRAVEL"[176]BY$[178]"WALK"[176]BY$[178]"MOVE"[167]665
  119. 690 [142]
  120. 695 [143]
  121. 700 [139](VE$[178]"N" [176] VE$[178]"E" [176] VE$[178]"S" [176] VE$[178]"W") [175] IT%(8)[178]PS [167]3400
  122. 705 [139](VE$[178]"NE" [176] VE$[178]"NW" [176] VE$[178]"SE" [176] VE$[178]"SW") [175] IT%(8)[178]PS [167]3400
  123. 710 [139] VE$[178]"N" [167]820
  124. 715 [139] VE$[178]"E" [167]830
  125. 720 [139] VE$[178]"S" [167]840
  126. 725 [139] VE$[178]"W" [167]850
  127. 730 [139] VE$[178]"NE" [167]860
  128. 735 [139] VE$[178]"NW" [167]870
  129. 740 [139] VE$[178]"SE" [167]880
  130. 745 [139] VE$[178]"SW" [167]890
  131. 750 [139] VE$[178]"GET"[176]VE$[178]"TAKE"[176]VE$[178]"GRAB"[176]VE$[178]"CARRY"[167]1025
  132. 755 [139] VE$[178]"DROP"[176]VE$[178]"THROW"[176]VE$[178]"TOSS"[176]VE$[178]"LEAVE"[167]1075
  133. 760 [139] VE$[178]"I" [176] [200](VE$,4)[178]"INVE"[167]1125
  134. 765 [139] VE$[178]"BREAK" [176] VE$[178]"SMASH" [176] VE$[178]"DESTROY" [167]1160
  135. 770 [139] VE$[178]"D"[176]VE$[178]"DOWN"[167]1205
  136. 775 [139] VE$[178]"IN" [176] VE$[178]"ENTER" [167]1545
  137. 780 [139] VE$[178]"OUT" [176] VE$[178]"EXIT" [167]1575
  138. 785 [139] VE$[178]"LOOK" [176] VE$[178]"SEE" [176] VE$[178]"VIEW" [167] MVE[178]0:[142]
  139. 790 [139]VE$[178]"SCORE"[176]VE$[178]"TOTAL"[167][153]"(null)OU ARE STILL STUCK IN THE MAZES ";:[137]3405
  140. 795 [139] VE$[178]"HELP" [176] VE$[178]"HINT" [167]1640
  141. 800 [139]VE$[178]"END"[176]VE$[178]"QUIT"[176]VE$[178]"STOP"[176]VE$[178]"DONE"[167]1700
  142. 805 [139]VE$[178]"KILL"[176]VE$[178]"ATTACK"[167][153]"YOU HAVE TO TELL ME HOW TO";:[137]3415
  143. 810 [153]"WHAT???":[142]
  144. 815 [143]
  145. 820 [139] N [167] PS[178]N:[137]920
  146. 825 [137]895
  147. 830 [139] E [167] PS[178]E:[137]920
  148. 835 [137]895
  149. 840 [139] S [167] PS[178]S:[137]920
  150. 845 [137]895
  151. 850 [139] W [167] PS[178]W:[137]920
  152. 855 [137]895
  153. 860 [139] NE [167] PS[178]NE:[137]920
  154. 865 [137]895
  155. 870 [139] NW [167] PS[178]NW:[137]920
  156. 875 [137]895
  157. 880 [139] SE [167] PS[178]SE:[137]920
  158. 885 [137]895
  159. 890 [139] SW [167] PS[178]SW:[137]920
  160. 895 [153]"(null)OU CANNOT GO THAT WAY."
  161. 900 [139] PS[179][177]36[167]925
  162. 905 [158]QX,"> PEEKANG! < ATNS YOU HIT THE WALL, THE ROCKS WAKE UP "
  163. 910 [158]QX,"AND NOTICE YOU IN THEIR REALM.  (null)HEY STONE YOU TO DEATH.":EOG[178]TRUE
  164. 915 [142]
  165. 920 [143]
  166. 925 MVE[178]0
  167. 930 [139] PS[178]23 [175] [168] FLG%(1) [167] FLG%(1)[178]TR:[153]:[137]3355
  168. 935 [139] PS[178]84 [175] [168] FLG%(3) [167] [153]:[153]"(null)OU'VE FOUND (null)RUDENCE.
  169. 940 IF PS=16THENSYSQX,"[193] BLUE WILL 'O THE WISP BECKONS FROM THE EAST.
  170. 945 [139] PS[178]18[167][158]QX,"ATN BLUE WILL 'O THE WISP BECKONS FROM THE EAST.
  171. 950 IF PS=19THENSYSQX,"[193] BLUE WILL 'O THE WISP BECKONS FROM THE SOUTH.
  172. 955 [139] PS[178]20[167][158]QX,"ATN BLUE WILL 'O THE WISP BECKONS FROM THE SOUTHWEST.
  173. 960 IF PS=21THENSYSQX,"[193] BLUE WILL 'O THE WISP BECKONS FROM THE SOUTHEAST.
  174. 965 [139] PS[178]22[167][158]QX,"ATN BLUE WILL 'O THE WISP BECKONS FROM INSIDE THE CAVE.
  175. 970 IFPS=23THENSYSQX,"[193] BLUE WILL 'O THE WISP DANCES OUTSIDE THE CAVE'S ENTRANCE
  176. 975 [139](FLG%(2)[178]FALSE)[176]FLG%(3)[178]TRUE [167]1020
  177. 980 [139] PS[178]30[167][158]QX,"ATN GREEN WILL 'O THE WISP BECKONS FROM THE NORTH.
  178. 985 IF PS=37THENSYSQX,"[193] GREEN WILL 'O THE WISP BECKONS FROM THE NORTH.
  179. 990 [139] PS[178]42[167][158]QX,"ATN GREEN WILL 'O THE WISP BECKONS FROM THE EAST.
  180. 995 IF PS=43THENSYSQX,"[193] GREEN WILL 'O THE WISP BECKONS FROM THE NORTHEAST.
  181. 1000 [139] PS[178]44[167][158]QX,"ATN GREEN WILL 'O THE WISP BECKONS FROM THE SOUTHEAST.
  182. 1005 IF PS=45THENSYSQX,"[193] GREEN WILL 'O THE WISP BECKONS FROM THE SOUTHWEST.
  183. 1010 [139] PS[178]46[167][158]QX,"ATN GREEN WILL 'O THE WISP BECKONS FROM THE SOUTHWEST.
  184. 1015 IF PS=47THENSYSQX,"[193] GREEN WILL 'O THE WISP BECKONS FROM THE SOUTH.
  185. 1020 [153]:[142]
  186. 1025 [143]
  187. 1030 [129] I[178]1[164]9
  188. 1035 [139] IT$(I)[178]NO$[167]1045
  189. 1040 [130]:[153]"(null)HAT IS BEYOND YOUR POWER.":[142]
  190. 1045 [139] IT%(I)[178][171]1[167][153]"(null)OU ARE ALREADY CARRYING IT!!":[142]
  191. 1050 [139]IT%(I)[178]0 [167][153]"(null)OU CHEATER!! (null)OU HAVE TO WORK FOR THAT.":[142]
  192. 1055 [139]IT%(I)[179][177]PS[167][158]QX,"RIGHT$ DO NOT SEE ANY "[170]NO$[170]" HERE.":[142]
  193. 1060 [139]I[178]2[175]IT%(1)[179][177][171]1[167][153]"(null)HAT WILL YOU CARRY THE WATER IN?? ";:[137]3370
  194. 1065 [153]"(null)K! (null)HY NOT?":IT%(I)[178][171]1
  195. 1070 [142]
  196. 1075 [143]
  197. 1080 [129] I[178]1 [164] 9
  198. 1085 [139] IT$(I)[178]NO$ [167]1095
  199. 1090 [130]:[153]"(null)HAT IS BEYOND YOUR POWER.":[142]
  200. 1095 [139] IT%(I)[179][177][171]1[167][153]"(null)OU ARE NOT CARRYING IT!!":[142]
  201. 1100 [139] I[178]1 [175] IT%(2)[178][171]1[167]IT%(2)[178]PS:[143] IF DROP BOTTLE, ALSO WATER
  202. 1105 [153]"(null)K! (null)HY NOT?":IT%(I)[178]PS
  203. 1110 [139] PS[178]84 [175] IT%(2)[178]84 [175] [168] FLG%(3) [167] [141]3375
  204. 1115 [139] PS[178]84 [175] IT%(2)[178]84 [175] [168] FLG%(3)[167] FLG%(3)[178]TR:IT%(3)[178]PS:IT%(2)[178][171]2
  205. 1120 [142]
  206. 1125 [143]
  207. 1130 [153]
  208. 1135 [153]:[153]"(null)OUR INVENTORY IS AS FOLLOWS":[153]:TMP[178]0
  209. 1140 [129] I[178]1 [164] 9
  210. 1145 [139] IT%(I)[178][171]1 [167] [153]""IT$(I):TMP[178]TMP[170]1
  211. 1150 [130]:[139] TMP[178]FALSE [167] [153]" (NOTHING)"
  212. 1155 [142]
  213. 1160 [143]
  214. 1165 [139] NO$[178]"MIRROR" [167]1175
  215. 1170 [153]"LEFT$OW CAN RIGHT$ BREAK THAT FOR YOU?":[142]
  216. 1175 [143]
  217. 1180 [139] PS[179][177]35[167][158]QX,"RIGHT$ DON'T SEE ANY MIRROR HERE. (null)ERHAPS IF YOU KEEP "
  218. 1185 [139] PS[179][177]35[167][158]QX,"LOOKING YOU'LL FIND ONE.":[142]
  219. 1190 [158]QX,"(null)HERE WAS SOMETHING BEHIND THAT MIRROR. ATN HUNGRY TROLL WAS BEHIND"
  220. 1195 [158]QX," THAT MIRROR! LEFT$E LEAPT OUT AND MADE YOU HIS SUPPER. (null)OO BAD "
  221. 1200 [158]QX,"THOUGH, YOU JUST CAN'T TRUST A  HUNGRY TROLL.":EOG[178]TR:[142]
  222. 1205 [143]
  223. 1210 [139] PS[179][177]61[167][158]QX,"(null)HERE IS NO WAY TO TRAVEL THROUGH THE SOLID ROCK"
  224. 1215 [139] PS[179][177]61[167][158]QX," STUPID!!!":[142]
  225. 1220 [158]QX,"PEEKOY ARE YOU DUMB. RIGHT$ TOLD YOU NOT TO JUMP AND NOW YOU'VE KILLED"
  226. 1225 [158]QX," YOURSELF.":EOG[178]TR:[142]
  227. 1230 [143]
  228. 1235 [139] FLG%(2) [167]1435
  229. 1240 [153]:[158]QX,"(null)ALPH LOOKS UP AT YOU SLOWLY... (null)HE ACCUMULATED WISDOM"
  230. 1245 [158]QX," OF THE AGES PORING FROM HIS SWEATY BROW. (null)ELL?? LEFT$E CACKLES,"
  231. 1250 [158]QX,"(null)HAT IS IT THAT YOU WANT SO BADLY AS TO INTERRUPT ME FROM MY "
  232. 1255 [158]QX,"STUDIES????SINCMDCMDCMD"
  233. 1260 [133]ANS$:[139]ANS$[178]"FREEDOM"[176]ANS$[178]"HELP"[176]ANS$[178]"OUT"[176]ANS$[178]"HOME"[167]1295
  234. 1265 [153]:[133]"(null)HAT??? LEFT$E SAYS... STR$O YOU WANT TO GET OUT OF HERE???SINCMDCMDCMD";ANS$
  235. 1270 [139] [200](ANS$,1)[178]"Y" [167]1295
  236. 1275 [153]:[158]QX,"(null)ELL HE MUTTERS, SINCE RIGHT$ CAN'T SEEM TO UNDERSTAND YOU..."
  237. 1280 [158]QX," RIGHT$'LL JUST KILL YOU!!  ATNND WITH THAT HE WAVES HIS HANDS IN A"
  238. 1285 [158]QX,"MAGICAL MOTION AND YOU DISAPPEAR IN A CLOUD OF BRIGHT ORANGE "
  239. 1290 [158]QX,"DUST.":EOG[178]TR:[142]
  240. 1295 [139] ITM%(4)[178][171]1[176] ITM%(5)[178][171]1[167]1305
  241. 1300 [137]1330
  242. 1305 [153]:[158]QX,"RIGHT$'D LIKE TO HELP YOU, BUT THAT IS MY
  243. 1310 SYSQX,"TREASURE THAT YOU HAVE THERE, AND [201] "
  244. 1315 SYSQX,"DISLIKE A CLUMSY THIEF. [211]O SAY GOODBYE
  245. 1320 [158]QX,"QUICK CAUSE YOU'RE A GONER !!! ATNND WITH "
  246. 1325 [158]QX,"THAT HE KILLS YOU !!!":EOG[178]TR:[142]
  247. 1330 [153]:[158]QX,"RIGHT$'LL HELP YOU OUT... BUT FIRST RIGHT$ NEED A FAVOR. (null)HERE IS A CERTAIN "
  248. 1335 [158]QX,"WITCH UP NORTH THAT RIGHT$ ONCE ANGERED AND SHE HAS ENCHANTED MY "
  249. 1340 [158]QX,"MAGIC STAFF AWAY FROM ME.":[153]
  250. 1345 [158]QX,"(null)HE TURNED IT INTO A BROOMSTICK AND RIGHT$ WANT IT BACK! (null)O IF YOU"
  251. 1350 [158]QX," CAN STEAL IT FROM HER, RIGHT$'LL  HELP YOU.":[153]
  252. 1355 [133]"STR$O YOU WANT TO TRY??SINCMDCMDCMD";ANS$
  253. 1360 [139][200](ANS$,1)[179][177]"Y"[167] [153]:[158]QX,"(null)ELL RIGHT$ NEVER!!! RIGHT$ TRY TO HELP "
  254. 1365 [139][200](ANS$,1)[179][177]"Y"[167][158]QX,"YOU AND YOU CAN'T HELP ME!!! ":[141]155
  255. 1370 [139][200](ANS$,1)[179][177]"Y"[167][158]QX,"HELP YOU INTO A GRAVE !!ATNND WITH THAT HE "
  256. 1375 [139][200](ANS$,1)[179][177]"Y"[167][158]QX,"PLUNGES A SWORD INTO YOUR CHEST. (null)OU DIE."
  257. 1380 [139][200](ANS$,1)[179][177]"Y"[167] EOG[178]TR:[142]
  258. 1385 [153]:[158]QX,"CHR$OOD!!! (null)OW AWAY YOU GO !!! PEEKUT FIRST.. (null)HE WAY INTO THE WITCH'S "
  259. 1390 [158]QX,"LAND IS NOT SIMPLE. ATNLL PATHS ARE CHARMED SO AS TO ONLY LEAD YOU "
  260. 1395 [158]QX,"AWAY FROM THE LAND."
  261. 1400 [153]:[158]QX,"PEEKUT IF YOU SIMPLY REVERSE THE TAUNTINGS OF THE GREEN WILL 'O THE "
  262. 1405 [158]QX,"WISP, YOU'LL GET THERE EASILY ENOUGH. (null)K... (null)OW FOR THE BIG "
  263. 1410 [158]QX,"FINISH !!!"
  264. 1415 [153]:[158]QX,"(null)HE MAGICIAN WAVES HIS HANDS, AND YOU BLACK-OUT IN A FRENZY OF "
  265. 1420 [158]QX,"SENSATIONS. (null)OU AWAKE TO FIND..."
  266. 1425 PS[178]36:FLG%(2)[178]TR:MV[178]0:[141]455
  267. 1430 [142]
  268. 1435 [143]
  269. 1440 [153]:[158]QX,"(null)ELL, MUTTERS (null)ALPH, RIGHT$ SEE YOU'RE BACK.  "
  270. 1445 [139]ITM%(4)[178][171]1[176]ITM%(5)[178][171]1[167][158]QX,"ATNND TRYING TO STEAL MY TREASURE!!! PEEKOY "
  271. 1450 [139]ITM%(4)[178][171]1[176]ITM%(5)[178][171]1[167][158]QX,"NOW YOU'VE GONE AND DONE IT... RIGHT$'M MAD!!
  272. 1455 IFITM%(4)=-1ORITM%(5)=-1THENSYSQX," [193]ND A MAD WIZARD IS DANGEROUS!!
  273. 1460 [139]ITM%(4)[178][171]1[176]ITM%(5)[178][171]1[167][158]QX," (null)OU ARE DEAD !!!":EOG[178]TR:[142]
  274. 1465 [139]ITM%(3)[179][177][171]1[167][158]QX,"AND EMPTY HANDED !!! (null)ELL RIGHT$ JUST CAN'T "
  275. 1470 [139]ITM%(3)[179][177][171]1[167][158]QX,"ABIDE ANY FREELOADERS. PEEKEGONE GNAT!!! "
  276. 1475 [139]ITM%(3)[179][177][171]1[167][158]QX,"AND WITH THAT HE CLAPS HIS HANDS, YOU "
  277. 1480 [139]ITM%(3)[179][177][171]1[167][158]QX,"TURN INTO A GNAT, AND GET EATEN BY THE "
  278. 1485 [139]ITM%(3)[179][177][171]1[167][158]QX,"NEAREST SPIDER.":EOG[178]TR:[142]
  279. 1490 IT%(6)[178][171]1:IT%(3)[178]0:[129]X[178]1[164]1000:[130]:[158]QX,"AND WITH THE BROOM, HE "
  280. 1495 [158]QX,"YELLS !! ASCOR FINDING MY STAFF RIGHT$ HEREBY
  281. 1500 SYSQX," GRANT YOU YOUR FREEDOM AND A PRESENT !!
  282. 1505 [158]QX," LENHECK YOUR BELONGINGS LATER, HE CACKLES."
  283. 1510 [153]:[158]QX," >(null)(null)(null)ASC!< (null)OU ARE STANDING UNDER A LARGE
  284. 1515 SYSQX," BEAUTIFUL SPREADING TREE.":PRINT:GOSUB1125
  285. 1520 PRINT"[217]OUR BELOVED [194]RUNHILDE IS RUNNING
  286. 1525 [158]QX," TOWARDS YOU THROUGH THE FIELD IN SLOW
  287. 1530 SYSQX," MOTION... [204]IFE IS BEAUTIFUL ONCE AGAIN
  288. 1535 [158]QX," AND ALL IS WELL. RIGHT$ HOPE YOU'VE ENJOYED YOUR LITTLE EXCURSION."
  289. 1540 EOG[178]TR:[142]
  290. 1545 [143]
  291. 1550 [139] PS[178]22 [175] NO$[178]"CAVE" [167] VE$[178]"SW":[137]710
  292. 1555 [139] PS[178]7 [175] NO$[178]"HOUSE" [167] VE$[178]"E":[137]710
  293. 1560 [139] PS[178]48 [175] NO$[178]"CASTLE" [167] VE$[178]"S":[137]710
  294. 1565 [139] PS[178]64 [167] VE$[178]"N":[137]710
  295. 1570 [153]"VALNTER WHAT ???":[142]
  296. 1575 [143]
  297. 1580 [139] PS[178]23[175] NO$[178]"CAVE" [167]1590
  298. 1585 [137]1600
  299. 1590 [158]QX,"(null)HE BARS ARE QUITE SOLID AND YOU ARE BUT
  300. 1595 SYSQX," A POOR COUNTRY BOY. [217]OU CANNOT GO OUT":RETURN
  301. 1600 IFPS=1ANDNO$="HOUSE"THENVE$="W":GOTO850
  302. 1605 IFPS=49THENVE$="N":GOTO710
  303. 1610 IF PS=56THENVE$="W":GOTO710
  304. 1615 IF PS=57 THEN VE$="E":GOTO710
  305. 1620 IF PS=65 THEN VE$="S":GOTO710
  306. 1625 IF PS=50 THEN VE$="E":GOTO710
  307. 1630 IF PS=51 THEN VE$="W":GOTO710
  308. 1635 PRINT"[197]XIT WHAT ???":RETURN
  309. 1640 REM
  310. 1645 PRINT:INPUT"[196]O YOU REALLY WANT A LITTLE HELP[191][157][157][157]";ANS$
  311. 1650 IF LEFT$(ANS$,1)<>"Y" THEN PRINT"[215]ELL, SINCE NOT, BACK YOU GO.":RETURN
  312. 1655 PRINT:PRINT"'GET' WILL LET YOU PICK UP AN OBJECT    'DROP' PUTS IT DOWN
  313. 1660 [153]"'INVENTORY' PRINTS YOUR SUPPLIES        'N' GOES NORTH, 'SW' GOES";
  314. 1665 [153]" SOUTHWEST ETC 'END' LEAVES THE GAME"
  315. 1670 [153] "'LOOK' WILL DESCRIBE YOUR LOCATION
  316. 1675 PRINT "'ENTER'  'EXIT' 'AGAIN' ARE ALSO USEFUL
  317. 1680 [153]:[153]"RIGHT$F YOU ENCOUNTER A WITCH AND WISH TO    KILL HER (WHY NOT)";
  318. 1685 [153]" YOU HAVE TO FIGURE   OUT HOW. RIGHT$ WON'T TELL YOU, BUT IT WILL
  319. 1690 PRINT"INVOLVE SOME OBJECTS AND ACTIONS THAT
  320. 1695 [153]"YOU WILL HAVE AVAILABLE. (null)HAT'S ALL.":[153]:[142]
  321. 1700 [143]
  322. 1705 [153]:[133]"STR$O YOU REALLY WISH TO QUIT NOW";ANS$                      
  323. 1710 [139] [200](ANS$,1)[179][177]"Y" [167][153]"WELL IF YOU'VE CHANGED YOUR MIND, THEN
  324. 1715 IF LEFT$(ANS$,1)<>"Y" THENPRINT"BACK YOU'LL GO":RETURN
  325. 1720 PRINT:PRINT"[207]K, BUT YOU DIDN'T DO SO WELL."                    
  326. 1725 IF PS<23 THENPRINT"[217]OU DIDN'T EVEN FIND THE CAVES !!!":GOTO1745 
  327. 1730 IF NOT FLG%(2)THENPRINT"[217]OU DIDN'T MEET THE MAGICIAN !!!":GOTO1745
  328. 1735 IF NOT FLG%(3)THENPRINT"[217]OU NEVER KILLED THE WITCH !!!
  329. 1740 [158]QX,"(null)OU DIDN'T GET THE BROOM TO THE MAGICIAN"
  330. 1745 [153]:[153]"(null)IGH... (null)ELL RIGHT$ SUPPOSE YOU TRIED...":EOG[178]TR:[142]
  331. 1750 [143]
  332. 1755 [158]QX,"(null)OU ARE IN A SMALL FARMHOUSE.  RIGHT$T ISN'T "
  333. 1760 [158]QX,"MUCH BUT YOU CALL IT HOME. RIGHT$N FACT IT "
  334. 1765 [158]QX,"ISN'T ANYTHING TO BE PROUD OF... RIGHT$T IS "
  335. 1770 [158]QX," REALLY PRETTY SHABBY... ATNCTUALLY IT IS "
  336. 1775 [158]QX,"DISGUSTING BUT YOU CALL IT HOME.  (null)NE DOOR EXITS TO THE WEST.
  337. 1780 N=0:E=0:S=0:W=7:NE=0:NW=0:SE=0:SW=0
  338. 1785 RETURN
  339. 1790 REM
  340. 1795 SYSQX,"[217]OU ARE IN THE FOREST STILL. [201]T LOOKS "
  341. 1800 SYSQX,"LIKE YOU MAY BE LOST BUT YOU NEVER KNOW "
  342. 1805 SYSQX,"WITH THESE POOR FARM PEASANTS. "
  343. 1810 N=0:E=0:S=0:W=0:NE=4:NW=3:SE=0:SW=0
  344. 1815 RETURN
  345. 1820 REM
  346. 1825 SYSQX,"[217]OU ARE IN A FOREST OF HUGE TREES. [212]HE FOREST IS FULL OF NUTS .. "
  347. 1830 N=0:E=0:S=0:W=0:NE=0:NW=0:SE=2:SW=5
  348. 1835 RETURN
  349. 1840 REM
  350. 1845 SYSQX,"[201]F YOU ARE NOT LOST YET THEN YOU KNOW "
  351. 1850 SYSQX,"THAT YOU ARE IN THE FOREST. ([196]OES THAT MAKE ANY SENSE?)
  352. 1855 N[178]0:E[178]0:S[178]0:W[178]0:NE[178]0:NW[178]0:SE[178]15:SW[178]2
  353. 1860 [142]
  354. 1865 [143]
  355. 1870 [158]QX,"(null)OU ARE IN A FOREST OF HUGE TREES. (null)HE "
  356. 1875 [158]QX,"FOREST IS FULL OF NUTS ..
  357. 1880 N=0:S=0:E=0:W=0:NE=3:NW=0:SE=0:SW=6
  358. 1885 RETURN
  359. 1890 REM
  360. 1895 SYSQX,"[212]HE FOREST IS ALL AROUND YOU. [217]OU ARE IN "
  361. 1900 SYSQX,"THE FOREST. [201]N THE FOREST YOU ARE. [196]O "
  362. 1905 SYSQX,"YOU NEED ANY MORE HELP? [217]OU ARE IN THE HUGE FOREST WITH THE REST"
  363. 1910 SYSQX," OF THE NUTS.
  364. 1915 N[178]0:E[178]0:S[178]8:W[178]0:NE[178]5:NW[178]0:SE[178]7:SW[178]0
  365. 1920 [142]
  366. 1925 [143]
  367. 1930 [158]QX,"(null)OU ARE OUTSIDE YOUR DILAPIDATED RUN-DOWN"
  368. 1935 [158]QX," DIRTY LITTLE FARMHOUSE. (null)OU CAN BREATHE "
  369. 1940 [158]QX,"FRESH AIR AGAIN. ATN WELL WORN PATH LEADS "
  370. 1945 [158]QX,"TO THE NORTH, AND INTO THE FOREST."
  371. 1950 N[178]5:E[178]1:S[178]0:W[178]0:NE[178]0:NW[178]0:SE[178]0:SW[178]0
  372. 1955 [142]
  373. 1960 [143]
  374. 1965 [158]QX,"(null)OU ARE IN THE FOREST. CHR$REAT MUSHROOMS "
  375. 1970 [158]QX,"GROW HERE. (null)HEY LOOK GOOD TO EAT BUT "
  376. 1975 [158]QX,"COULD BE VERY WELL POISONOUS. RIGHT$ WOULD "
  377. 1980 [158]QX,"NOT TRY TO EAT THEM IF RIGHT$ WERE YOU. "
  378. 1985 N[178]6:E[178]0:S[178]0:W[178]0:NE[178]0:NW[178]0:SE[178]9:SW[178]0
  379. 1990 [142]
  380. 1995 [143]
  381. 2000 [158]QX,"(null)HE FOREST IS A LOVELY PLACE ISN'T IT? "
  382. 2005 [158]QX,"RIGHT$T HAS TREES AND SQUIRRELS AND NUTS AND "
  383. 2010 [158]QX,"BUSHES AND YOU WHO ARE MOST LIKELY LOST!
  384. 2015 N=0:E=0:S=0:W=0:NE=0:NW=0:SE=10:SW=0
  385. 2020 RETURN
  386. 2025 REM
  387. 2030 SYSQX,"[194]OY YOU JUST KEEP WALKING DEEPER AND
  388. 2035 [158]QX," DEEPER INTO THE FOREST. (null)HY DID YOU HAVE"
  389. 2040 [158]QX," TO LEAVE THAT NICE LITTLE RUN DOWN
  390. 2045 SYSQX," SHANTY OF YOURS IN SEARCH OF ADVENTURE?
  391. 2050 [158]QX,"  RIGHT$F YOU WANTED ADVENTURE THEN YOU ARE IN
  392. 2055 SYSQX," THE WRONG FANTASY.
  393. 2060 N[178]0:E[178]0:S[178]0:W[178]0:NE[178]11:NW[178]9:SE[178]0:SW[178]0
  394. 2065 [142]
  395. 2070 [143]
  396. 2075 [158]QX,"(null)OU ARE IN THE FOREST A LONG WAY
  397. 2080 SYSQX," FROM HOME. [205]ONSTERS COULD BE ANYWHERE.
  398. 2085 [158]QX,"  (null)HEY COULD BE... BEHIND YOU NOW!!! LEFT$A-HA."
  399. 2090 [158]QX,"RIGHT$'LL BET RIGHT$ SCARED YOU DIDN'T RIGHT$??? (null)ELL
  400. 2095 SYSQX," TO TELL THE TRUTH YOU ARE JUST IN THE
  401. 2100 [158]QX," FOREST WITH THE SQUIRRELS.
  402. 2105 N=0:E=0:S=0:W=0:NE=0:NW=0:SE=12:SW=10
  403. 2110 RETURN
  404. 2115 REM
  405. 2120 SYSQX,"[212]HE FOREST IS GETTING DARKER AND YOU ARE"
  406. 2125 SYSQX," OUT WAY PAST MY BEDTIME. [205]AYBE YOU
  407. 2130 [158]QX," SHOULD TURN AROUND AND JUST GO HOME.
  408. 2135 SYSQX,"  [212]HAT IS, IF YOUR SHACK IS STILL STANDING.
  409. 2140 N[178]0:E[178]0:S[178]0:W[178]0:NE[178]13:NW[178]11:SE[178]0:SW[178]0
  410. 2145 [142]
  411. 2150 [143]
  412. 2155 [158]QX,"PEEKOY IT IS REALLY DARK NOW... (null)ONSTERS
  413. 2160 SYSQX," COULD BE ANYWHERE... [215]HY NOT GO HOME TO
  414. 2165 [158]QX," YOUR MOTHER?
  415. 2170 N=14:E=0:S=0:W=9:NE=17:NW=0:SE=0:SW=0
  416. 2175 RETURN
  417. 2180 REM
  418. 2185 SYSQX,"[193]HA! [217]OU ARE IN A CLEARING AND CAN SEE
  419. 2190 [158]QX," A TRAIL YOU ARE FAMILIAR WITH LEADING TO"
  420. 2195 [158]QX," THE SOUTH-WEST. (null)F COURSE THERE ARE
  421. 2200 SYSQX," OTHER TRAILS BUT THIS SEEMS THE SMARTEST MOVE AT THIS TIME.
  422. 2205 N[178]15:E[178]0:S[178]13:W[178]0:NE[178]0:NW[178]0:SE[178]0:SW[178]7
  423. 2210 [142]
  424. 2215 [158]QX,"(null)ELL FOR THE HOPELESSLY LOST... (null)OU ARE
  425. 2220 SYSQX," IN THE LARGE DARK MEAN SCARY NASTY OLD
  426. 2225 [158]QX," FOREST AND MOST LIKELY YOU'LL DIE HERE
  427. 2230 SYSQX," AND GET EATEN BY THE ROTTEN SQUIRRELS.
  428. 2235 N[178]0:E[178]0:S[178]14:W[178]0:NE[178]0:NW[178]4:SE[178]0:SW[178]0
  429. 2240 [142]
  430. 2245 [141]3420:N[178]0:E[178]18:S[178]17:W[178]0:NE[178]0:NW[178]15:SE[178]0:SW[178]0:[142]
  431. 2250 [141]3420:N[178]16:E[178]0:S[178]0:W[178]0:NE[178]0:NW[178]0:SE[178]0:SW[178]13:[142]
  432. 2255 [141]3420:N[178]15:E[178]19:S[178]17:W[178]16:NE[178]15:NW[178]15:SE[178]17:SW[178]17:[142]
  433. 2260 [141]3420:N[178]15:E[178]15:S[178]20:W[178]18:NE[178]15:NW[178]15:SE[178]15:SW[178]17:[142]
  434. 2265 [141]3420:N[178]19:E[178]15:S[178]15:W[178]17:NE[178]15:NW[178]17:SE[178]15:SW[178]21:[142]
  435. 2270 [141]3420:N[178]17:E[178]15:S[178]0:W[178]17:NE[178]20:NW[178]17:SE[178]22:SW[178]0:[142]
  436. 2275 [158]QX,"(null)OU'RE IN FRONT OF A LARGE CAVE ENTRANCE."
  437. 2280 [158]QX,"  (null)HAT APPEARS TO BE A HUGE POT OF GOLD IS"
  438. 2285 [158]QX," SITTING IN THE CAVE. (null)OU'LL BE RICH! (null)OU'LL
  439. 2290 SYSQX," GET YOUR MOTHER HER OPERATION! [217]OU
  440. 2295 [158]QX," CAN BUY SHOES FOR YOUR SISTER! PEEKOY ARE YOU LUCKY!!!
  441. 2300 N=15:E=15:S=15:W=17:NE=15:NW=21:SE=15:SW=23:RETURN
  442. 2305 SYSQX,"[217]OU ARE IN THE CAVE. [212]HE EXIT IS BARRED
  443. 2310 [158]QX," BY HUGE STEEL BARS AND TRY AS YOU LIKE
  444. 2315 SYSQX," YOU CANNOT GET THEM OPEN. [206]OW YOU'LL
  445. 2320 [158]QX," MISS YOUR WEDDING AND PEEKRUNHILDE IS GOING"
  446. 2325 [158]QX," CRY VERY LOUDLY WHEN SHE FINDS OUT.
  447. 2330 N=0:E=0:S=24:W=0:NE=0:NW=0:SE=0:SW=0:RETURN
  448. 2335 SYSQX,"[217]OU ARE IN THE CAVES PROPER NOW. [212]HERE
  449. 2340 [158]QX," SEEMS TO BE MANY DIFFERENT TUNNELS ABOUT"
  450. 2345 [158]QX," HERE AND ONE LARGE ONE RUNS TO THE EAST."
  451. 2350 [158]QX," (null)F COURSE YOU DON'T HAVE TO LISTEN TO ME, YOU COULD ALWAYS TRY WEST.
  452. 2355 N=23:E=28:S=25:W=26:NE=0:NW=0:SE=0:SW=0:RETURN
  453. 2360 SYSQX,"[215]ELL LETS SEE... [212]HERE IS A TUNNEL HERE
  454. 2365 [158]QX," THAT RUNS EAST/WEST AND THERE IS A SMALL"
  455. 2370 [158]QX," FISSURE BARELY MANAGEABLE THAT GOES TO THE NORTH-EAST.
  456. 2375 N=0:E=28:S=0:W=26:NE=24:NW=0:SE=0:SW=0:RETURN
  457. 2380 SYSQX,"[212]HE TUNNEL BRANCHES OFF HERE INTO TWO
  458. 2385 [158]QX," PATHS OTHER THAN THE ONE YOU JUST CAME THROUGH. LENONFUSING ISN'T IT??
  459. 2390 N=24:E=25:S=27:W=0:NE=0:NW=0:SE=0:SW=0:RETURN
  460. 2395 SYSQX,"[212]HE TUNNEL HERE TURNS SLIGHTLY OFF
  461. 2400 [158]QX," COURSE. (null)H BY THE WAY, IF YOU WERE WONDERING
  462. 2405 SYSQX," ABOUT HOW YOU COULD SEE IF YOU ARE"
  463. 2410 SYSQX," THIRTY OR FORTY FEET UNDERGROUND... [212]HE
  464. 2415 [158]QX," AIR IS FILLED WITH MAGIC AND IT GLOWS ENOUGH FOR YOU TO SEE BY.
  465. 2420 N=0:E=26:S=30:W=0:NE=0:NW=0:SE=0:SW=0:RETURN
  466. 2425 SYSQX,"[217]OU ARE AT A SMALL INTERSECTION OF ABOUT"
  467. 2430 SYSQX," FOUR PASSAGES. [215]ELL EXACTLY FOUR PASSAGES.
  468. 2435 [158]QX,"  RIGHT$'M NOT GOING TO TELL YOU WHICH WAY THEY GO !!
  469. 2440 N=24:E=0:S=31:W=25:NE=0:NW=0:SE=0:SW=29:RETURN
  470. 2445 SYSQX,"[217]OU ARE AT THE INTERSECTION OF TWO SMALL"
  471. 2450 SYSQX," PASSAGES. [207]NE LEADS NORTH-WEST AND THE
  472. 2455 [158]QX," OTHER LEAVES TO THE SOUTH. (null)N THE WALL
  473. 2460 SYSQX," IS SCRAWLED... '[196]EATH TO THOSE WHO TAKE
  474. 2465 [158]QX," THE SOUTH PASSAGE'.
  475. 2470 N=0:E=0:S=38:W=0:NE=0:NW=26:SE=0:SW=0:RETURN
  476. 2475 SYSQX,"[206]OT 'MANY' BUT QUITE A FEW PASSAGES
  477. 2480 [158]QX," LEAVE THIS ROOM. LENAN YOU FIND THEM??
  478. 2485 N=27:E=0:S=0:W=0:NE=0:NW=0:SE=36:SW=37:RETURN
  479. 2490 SYSQX,"[212]HE ROOM HERE IS EXTREMELY DARK. [201] CAN
  480. 2495 [158]QX," NOT TELL YOU ANYTHING EXCEPT THAT A
  481. 2500 SYSQX," LARGE ROCK HERE IS REPELLING THE MAGIC
  482. 2505 [158]QX," THAT GIVES YOU LIGHT. (null)OU HAVE ALSO BEEN"
  483. 2510 [158]QX," BUMPING INTO WALLS NOW FOR ABOUT FIFTEEN MINUTES.
  484. 2515 N=0:E=0:S=33:W=28:NE=0:NW=0:SE=32:SW=0:RETURN
  485. 2520 SYSQX,"[193]HA! [217]OU GOT YOURSELF OUT OF THAT LAST
  486. 2525 [158]QX," ROOM! CHR$OOD! (null)OW YOU CAN FOLLOW THE NEXT TUNNEL AS IT LEADS YOU "
  487. 2530 [158]QX," SOUTHWARD.":N[178]0:E[178]0:S[178]34:W[178]0:NE[178]0:NW[178]0:SE[178]0:SW[178]0:[142]
  488. 2535 [158]QX,"(null)HE ROOM HERE IS FILLED WITH DUST. RIGHT$T
  489. 2540 SYSQX," CLOGS YOUR EYES AND MAKES IT DIFFICULT TO SEE.
  490. 2545 [158]QX,"  ASCOLLOW ME TO THE NORTH OR TO THE SOUTH-WEST AND WE'LL GET OUT.
  491. 2550 N=31:E=0:S=0:W=0:NE=0:NW=0:SE=0:SW=35:RETURN
  492. 2555 SYSQX,"[193] QUICK BEND IN THE PATH AND YOU NOW HAVE TO TRAVEL A DIFFERENT WAY
  493. 2560 N[178]32:E[178]0:S[178]0:W[178]39:NE[178]0:NW[178]0:SE[178]0:SW[178]0:[142]
  494. 2565 [158]QX,"(null)HESE TUNNELS SEEM ENDLESS DON'T THEY? 
  495. 2570 SYSQX," [215]ELL YOU MIGHT BE SURPRISED AT WHAT YOU
  496. 2575 [158]QX," CAN FIND IN HERE.  (null)AYBE IF YOU BREAK THE BIG MIRROR
  497. 2580 SYSQX," ON THE WEST WALL YOU'D FIND SOMETHING OF INTEREST BEHIND IT
  498. 2585 N[178]0:E[178]0:S[178]0:W[178]0:NE[178]33:NW[178]0:SE[178]0:SW[178]38:[142]
  499. 2590 [158]QX,"(null)OU HAVE ENTERED A SMALL CHAMBER OF
  500. 2595 SYSQX," SLEEPING ROCKS. [212]HEY MUST BE SLEEPING
  501. 2600 [158]QX," SINCE THEY ARE NOT MOVING. (null)IP-TOE QUIETLY OUT AND YOU WON'T WAKE"
  502. 2605 [158]QX," THEM.":N[178]0:E[178]0:S[178]41:W[178]0:NE[178]29:NW[178]30:SE[178]0:[142]
  503. 2610 [158]QX,"(null)OU ARE IN A SMALL EVEN WALLED CAVE ROOM"
  504. 2615 [158]QX," ,A FEELING OF DIZZINESS CONFUSES YOUR TRAVELS."
  505. 2620 N[178]36:E[178]36:S[178]42:W[178]0:NE[178]36:NW[178]30:SE[178]0:SW[178]0:[142]
  506. 2625 [158]QX,"(null)ELL... (null)HE MESSAGE IN THE LAST ROOM
  507. 2630 SYSQX," MUST HAVE BEEN MISTAKEN... [211]INCE YOU ARE"
  508. 2635 SYSQX," STILL ALIVE. [215]ELL ONE CAN'T BELIEVE ANY
  509. 2640 [158]QX," GRAFITTI THEY READ ON WALLS, CAN THEY?
  510. 2645 N=0:E=0:S=0:W=0:NE=35:NW=0:SE=0:SW=41:RETURN
  511. 2650 SYSQX,"[212]HREE PASSAGES LEAVE HERE. [207]NE TO THE
  512. 2655 [158]QX," NORTH... ONE TO THE WEST... AND ONE TO THE SOUTH. (null)HICH WAY WILL"
  513. 2660 [158]QX," YOU TAKE?":N[178]34:E[178]0:S[178]40:W[178]33:NE[178]0:NW[178]0:SE[178]0:SW[178]0:[142]         
  514. 2665 [158]QX,"ASCOUR PATHS LEAVE HERE. (null)OUD MAJESTIC SINGING SEEMS TO BE COMIING
  515. 2670 SYSQX," FROM NEARBY. [195]OULD THIS BE A SIGN? [195]OULD IT LEAD OUT OF HERE?"
  516. 2675 SYSQX," [195]OULD YOU BE GOING HOME???":N=35:E=39:S=0:W=41:NE=0:NW=0:SE=0:SW=48:RETURN
  517. 2680 SYSQX,"[212]HE PASSAGE TURNS A CORNER. [212]HAT'S ALL THIS ROOM
  518. 2685 [158]QX," RATES AS A DESCRIPTION
  519. 2690 N=36:E=0:S=0:W=0:NE=38:NW=0:SE=0:SW=0:RETURN
  520. 2695 GOSUB3390:N=37:E=41:S=41:W=43:NE=41:NW=0:SE=41:SW=44:RETURN
  521. 2700 GOSUB3390:N=42:E=42:S=41:W=0:NE=0:NW=0:SE=41:SW=44:RETURN
  522. 2705 GOSUB3390:N=43:E=43:S=0:W=0:NE=43:NW=45:SE=0:SW=0:RETURN
  523. 2710 GOSUB3390:N=44:E=43:S=44:W=44:NE=46:NW=44:SE=44:SW=0:RETURN
  524. 2715 GOSUB3390:N=45:E=43:S=43:W=44:NE=47:NW=44:SE=43:SW=45:RETURN
  525. 2720 GOSUB3390:N=67:E=43:S=43:W=46:NE=43:NW=46:SE=43:SW=46:RETURN
  526. 2725 SYSQX,"[217]OU ARE AT THE ENTRANCE TO A LARGE CLEAN"
  527. 2730 SYSQX," CASTLE. [201]T IS THE HOME OF THE ALL POWERFUL"
  528. 2735 SYSQX,", ALL KNOWING, ALL KIND, ALL DRUNK MAGICIAN
  529. 2740 [158]QX," (null)ALPH. LEFT$E ALONE HAS THE POWER TO GET YOU HOME TO SWEET PEEKRUNHILDE
  530. 2745 N=40:E=0:S=49:W=0:NE=0:NW=0:SE=0:SW=0:RETURN
  531. 2750 SYSQX,"[217]OU ARE AT THE NORTH END OF THE GREAT HALL. [198]INE PICTURES AND "
  532. 2755 SYSQX," OIL PAINTINGS ARE HUNG FROM THE WALLS. [212]HIS MAGICIAN  SEEMS TO"
  533. 2760 SYSQX," HAVE DONE WELL FOR HIMSELF.":N=48:E=0:S=50:W=0:NE=0:NW=0:SE=0:SW=0
  534. 2765 RETURN
  535. 2770 SYSQX,"[217]OU ARE IN THE MIDDLE OF THE HALL. [193] DOOR TO YOUR RIGHT LEADS "
  536. 2775 SYSQX,"INTO THE BLUE ROOM AND ONE TO YOUR LEFT TO THE GREEN ROOM.":N=49
  537. 2780 E=51:S=53:W=52:NE=0:NW=0:SE=0:SW=0:RETURN
  538. 2785 SYSQX,"[217]OU ARE IN THE BLUE ROOM. [193] GREAT SENSE OF DEPRESSION FLOWS LIKE"
  539. 2790 SYSQX," WAVES THROUGH YOU. [217]OU LONG FOR HOME AND YOUR SWEET [194]RUNHILDE"
  540. 2795 SYSQX,". [200]OW YOU WISH YOU WERE THERE.":N=0:E=0:S=0:W=50:NE=0:NW=0:SE=0
  541. 2800 SW=0:RETURN
  542. 2805 SYSQX,"[217]OU ARE IN THE GREEN ROOM. [217]OU ARE SUDDENLY VERY JEALOUS OF [210]ALPH
  543. 2810 [158]QX," AND HIS FINE CASTLE. LEFT$OW COME HE RATES ALL THIS STUFF AND YOU "
  544. 2815 [158]QX,"LIVE IN A HOLE IN THE GROUND?!?":N[178]0:E[178]50:S[178]0:W[178]0:NE[178]0:NW[178]0:SE[178]0
  545. 2820 SW[178]0:[142]
  546. 2825 [158]QX,"(null)OU ARE NOW AT THE SOUTH END OF THE GREAT HALL. LEFT$ALLWAYS LEAVE
  547. 2830 SYSQX," TO THE NORTH AND TO THE EAST AND TO THE WEST.":N=50:E=54:S=0
  548. 2835 W=61:NE=0:NW=0:SE=0:SW=0:RETURN
  549. 2840 SYSQX,"[217]OU ARE IN THE MIDDLE OF THE EAST HALL. [193] RAT SCURRIES PAST YOU "
  550. 2845 SYSQX,"AND TAKES A NIP AT YOUR LEG. [201]N AN INSTANT HE IS GONE WITH A "
  551. 2850 SYSQX,"SNEER AND A TWITCH OF HIS TAIL.":N=0:E=55:S=0:W=53:NE=0:NW=0:SE=0
  552. 2855 SW=0:RETURN
  553. 2860 SYSQX,"[217]OU ARE AT THE END OF THE EAST HALL. [212]HE ONLY NEW PASSAGE IS A SMALL
  554. 2865 [158]QX," SERVANTS EXIT TO THE SOUTH-EAST.":N[178]0:E[178]0:S[178]0:W[178]54:NE[178]0:NW[178]0
  555. 2870 SE[178]56:SW[178]0:[142]
  556. 2875 [158]QX,"(null)OU ARE IN THE SERVANT'S AREA. (null)INCE (null)ALPH'S LAST SERVANT DIED"
  557. 2880 [158]QX," NINE-HUNDRED  YEARS AGO THE PLACE IS A MESS AND ALSO SMELLS "
  558. 2885 [158]QX,"PRETTY BAD.":N[178]0:E[178]0:S[178]0:W[178]57:NE[178]55:NW[178]0:SE[178]0:SW[178]0:[142]
  559. 2890 [158]QX,"(null)OU ARE OUTSIDE THE SERVANTS QUARTERS.  ATN DISTRESSING SMELL COMES"
  560. 2895 [158]QX," FROM THE EAST. RIGHT$TS BEST TO GO BACK TO THE WEST FOR YOUR NOSE'S SAKE.
  561. 2900 N=0:E=56:S=0:W=58:NE=0:NW=0:SE=0:SW=0:RETURN
  562. 2905 SYSQX,"[217]OU ARE IN THE MIDDLE OF THE SOUTH HALL. [193]N EERIE LIGHT COMES FROM"
  563. 2910 SYSQX," THE WEST AND GREAT MUSIC FILLS THE AIR.":N=0:E=57:S=0:W=59:NE=0
  564. 2915 NW=0:SE=0:SW=0:RETURN
  565. 2920 SYSQX,"[217]OU ARE AT THE END OF THE SOUTH HALL. [212]WO SMALL PASSAGES LEAVE "
  566. 2925 SYSQX,"HERE. [207]NE TO THE NORTH-WEST AND ONE TO THE SOUTH-WEST":N=0:E=58
  567. 2930 S=0:W=0:NE=0:NW=60:SE=0:SW=62:RETURN
  568. 2935 SYSQX,"[217]OU ARE AT THE END OF THE WEST HALL. [193] SMALL PASSAGE LEADS TO THE
  569. 2940 [158]QX," SOUTH-WEST.":N[178]0:E[178]61:S[178]0:W[178]0:NE[178]0:NW[178]0:SE[178]0:SW[178]59:[142]
  570. 2945 [158]QX,"(null)OU ARE IN THE MIDDLE OF THE WEST HALL. ATN LARGE HOLE IN THE FLOOR
  571. 2950 SYSQX," REVEALS A HUGE DROP TO THE GROUND HUNDREDS OF FEET
  572. 2955 [158]QX," BELOW.  PEEKETTER NOT GO DOWN...":N[178]0:E[178]53:S[178]0:W[178]60:NE[178]0:NW[178]0:SE[178]0
  573. 2960 SW[178]0:[142]
  574. 2965 [158]QX,"(null)OU ARE IN A WINDING PASSAGE. ATNS YOUR TRAVEL PROGRESSES THE EERIE
  575. 2970 SYSQX," MUSIC GETS LOUDER AND YOU GET COLDER BUT THIS COULD BE THE WAY"
  576. 2975 SYSQX," OUT!!!":N=0:E=59:S=0:W=0:NE=0:NW=63:SE=0:SW=0:RETURN
  577. 2980 SYSQX,"[217]OU ARE IN A CONNECTING HALLWAY WITH SOME LOUD, ALBEIT EERIE MUSIC
  578. 2985 [158]QX," EMANATING FROM THE SOUTH-WEST.":N[178]0:E[178]0:S[178]0:W[178]0:NE[178]62:NW[178]0
  579. 2990 SE[178]0:SW[178]64:[142]
  580. 2995 [158]QX,"(null)OU ARE IN A SMALL ANTE-CHAMBER. ATN LARGE WELL USED PASSAGE LEADS "
  581. 3000 [158]QX,"TO THE NORTH AND A SMALLER PASSAGE TO THE WEST. VALERIE MUSIC COMES
  582. 3005 SYSQX," FROM THE NORTH.":N=65:E=0:S=0:W=66:NE=0:NW=0:SE=63:SW=0:RETURN
  583. 3010 SYSQX,"[217]OU OPEN THE DOOR AND ENTER INTO.....   [210]ALPH'S BATHROOM. [193] RADIO "
  584. 3015 SYSQX,"TUNED TO ONE OF THE MORE POPULAR ROCK STATIONS IS BLASTING "
  585. 3020 SYSQX,"FORTH PUNK ROCK MUSIC. [212]HE EFFECT IT HAS ON THE CASTLE WALLS "
  586. 3025 SYSQX,"IS EERIE INDEED":N=0:E=0:S=64:W=0:NE=0:NW=0:SE=0:SW=0:RETURN
  587. 3030 SYSQX,"[217]OU ARE IN THE LIBRARY WHERE THE GOOD MAGICIAN [210]ALPH IS POURING"
  588. 3035 SYSQX," OVER AN OLD AND ANCIENT TOME. [212]HE WORD YOBYALP SHOWS THROUGH THE
  589. 3040 [158]QX," COVER FROM THE LIGHT BEHIND.  (null)ALPH IS DEEPLY ABSORBED IN THE BOOK.
  590. 3045 N=0:E=64:S=0:W=0:NE=0:NW=0:SE=0:SW=0:RETURN
  591. 3050 SYSQX,"[217]OU ARE AT THE EDGE OF THE EVIL WITCH'S LAND. [212]HE EVIL [208]RUDENCE "
  592. 3055 SYSQX," DOES NOT SEEM TO BE ANYWHERE AROUND. [212]HAT IS GOOD FOR YOU SINCE "
  593. 3060 SYSQX,"SHE COULD TURN YOU INTO AN UGLIER TOAD THAN YOU ALREADY ARE.":N=68
  594. 3065 E=47:S=73:W=0:NE=0:NW=0:SE=0:SW=0:RETURN
  595. 3070 SYSQX,"[215]ALKING NORTH YOU WILL FIND A TWISTING OLD TRAIL. [212]O THE WEST "
  596. 3075 SYSQX,"LIES CONFUSION.  [211]OUTH IS THE WAY TO GO FOR A FAST EXIT FROM THIS"
  597. 3080 SYSQX," LAND. [199]O THERE IF YOU VALUE YOUR LIFE.":N=69:E=0:S=67:W=70:NE=0
  598. 3085 NW=0:SE=0:SW=0:RETURN
  599. 3090 SYSQX,"[212]HERE IS A TINY LITTLE HIDDEN TWISTING SECRET OLD OVERGROWN DIRTY"
  600. 3095 SYSQX," SNEAKY TRAIL THAT LEADS WEST FROM HERE. [211]OUTH IS MUCH NICER BUT "
  601. 3100 SYSQX,"NOT A LOT OF FUN. [193] ROCK HERE SAYS '[212]HIS WAY TO THE TLHTSOODST'"
  602. 3105 SYSQX," AND IT POINTS WEST":N=0:E=0:S=68:W=72:NE=0:NW=0:SE=0:SW=0:RETURN
  603. 3110 SYSQX,"[217]OU ARE IN A SMALL CLEARING, A PAPER LIES NEARBY. [201]T READS "
  604. 3115 SYSQX,"'[195]ONFUSION [211]AYS-  [197]XPLORER WHO GETS OUT... IS VERY LUCKY INDEED...'
  605. 3120 N[178]70:E[178]70:S[178]70:W[178]70:NE[178]70:NW[178]70:SE[178]70:SW[178]74:[142]
  606. 3125 [158]QX,"(null)OU ARE IN THE MIDDLE OF A LONG BORING NORTH-SOUTH PATHWAY."
  607. 3130 [158]QX," (null)OUR HEAD IS SLIGHTLY ACHING.":N[178]72:E[178]0:S[178]70:W[178]0:NE[178]0:NW[178]0
  608. 3135 SE[178]0:SW[178]0:[142]
  609. 3140 [158]QX,"(null)OU ARE IN THE SNEAKY CLEARING. (null)HERE ARE THREE EXITS FROM HERE."
  610. 3145 [158]QX," (null)NE THAT GOES TO THE SOUTH... (null)NE TO THE SOUTH-WEST...AND A DIRTY"
  611. 3150 [158]QX," SNEAKY.....LITTLE TRAIL TO  THE NORTH.":N[178]69:E[178]0:S[178]71:W[178]0:NE[178]0:NW[178]0
  612. 3155 SE[178]0:SW[178]76:[142]
  613. 3160 [158]QX,"ATN SMALL CLEARING AT THE SOUTHERN EDGE OF THE EVIL (null)RUDENCE'S LAND "
  614. 3165 [158]QX," GIVES YOU ROOM  TO REST AND RELAX. (null)WO PATHS LEAD AWAY FROM HERE.
  615. 3170 N=70:E=0:S=0:W=0:NE=0:NW=77:SE=0:SW=0:RETURN
  616. 3175 SYSQX,"[193]N INTERSECTION OF THREE PATHS IS HERE. [217]OUR HEAD ACHES SLIGHTLY "
  617. 3180 SYSQX,"AS YOU APPROACH THE AREA. [217]OU CAN LEAVE WITH MY BLESSING IF YOU
  618. 3185 [158]QX," FIND THE WAY OUT.":N[178]75:E[178]0:S[178]78:W[178]0:NE[178]70:NW[178]0:SE[178]0:SW[178]0:[142]
  619. 3190 [158]QX,"(null)HE PATH'S ORIENTATION BECOMES SUBTLY ALTERED AS ROUND YON CORNER.
  620. 3195 SYSQX,"[215]ATCH OUT FOR THE BAT GUANO TO YOUR LEFT.":N=0:E=0:S=74:W=0:NE=0
  621. 3200 NW=79:SE=0:SW=0:RETURN
  622. 3205 SYSQX,"[212]HE MIDPOINT FOR A LONG SLOPING CORRIDOR IS WHERE YOU ARE. [206]OT MUCH"
  623. 3210 SYSQX," SPECIAL ABOUT THIS PLACE EXCEPT THE SMELL OF BAT GUANO":N=0:E=0
  624. 3215 S=0:W=0:NE=72:NW=0:SE=0:SW=79:RETURN
  625. 3220 SYSQX,"[217]OU ARE AT THE MIDPOINT OF A LONG, LONG SLOPING CORRIDOR LEADING "
  626. 3225 SYSQX," SLIGHTLY SOUTH.":N=0:E=0:S=0:W=0:NE=74:NW=81:SE=73:SW=0:RETURN
  627. 3230 SYSQX,"[212]HE PATH HERE IS LITTERED WITH THE FRESH REMAINS OF BATS AND TOADS."
  628. 3235 SYSQX," [212]HEIR BODIES ARE STILL DECAYING IN THE DIRT.":N=0:E=0:S=74:W=82:NE=0
  629. 3240 NW=0:SE=0:SW=0:RETURN
  630. 3245 SYSQX,"[217]OU ARE AT THE INTERSECTION OF THREE TRAILS. [207]NE TO THE WEST "
  631. 3250 SYSQX,"AND ONE TO THE NORTH/EAST AND ONE TO THE SOUTH/EAST.  [215]HEN YOUR "
  632. 3255 SYSQX," COMPASS WORKS... [201]T SURE IS A HANDY THING TO HAVE.":N=0:E=0:S=0
  633. 3260 W=83:NE=76:NW=0:SE=75:SW=0:RETURN
  634. 3265 SYSQX,"[217]OU ARE OVERCOME BY THE FEELING OF NAUSEA. [193]S YOU TRY TO ALIGN "
  635. 3270 SYSQX,"YOURSELF ON YOUR COMPASS YOU ROCK AND REEL BACK AND FORTH AND FIND"
  636. 3275 SYSQX," IT DIFFICULT TO WALK IN A STRAIGHT LINE. [215]HAT COULD BE CAUSING "
  637. 3280 SYSQX,"THIS TO HAPPEN???":N=71:E=72:S=79:W=77:NE=69:NW=84:SE=76:SW=82:RETURN
  638. 3285 SYSQX,"[193]T THE SOUTHWEST EDGE OF THE WITCH'S LAND THE TUNNEL TURNS SLIGHTLY
  639. 3290 [158]QX," EITHER THAT OR WALK INTO THE HUGE ROCK THAT IS IN ITS WAY.":N[178]82
  640. 3295 S[178]0:W[178]0:NE[178]0:NW[178]0:SE[178]77:SW[178]0:[142]
  641. 3300 [158]QX,"(null)OPS!!! ATN SHARP TURN FORCES YOU TO GO EITHER SOUTH OR EAST DEPENDING
  642. 3305 SYSQX," ON WHICH WAY YOU CAME FROM.":N=0:E=78:S=81:W=0:NE=0:NW=0:SE=0
  643. 3310 SW=0:RETURN
  644. 3315 SYSQX,"[193] ROOM HERE HAS AN EASTERN EXIT AND ALSO A NORTHERN ONE. [198]ROM THE "
  645. 3320 SYSQX,"NORTH COMES A FUNNY FEELING OF DIZZINESS.":N=80:E=79:S=0:W=0:NE=0
  646. 3325 SE=0:NW=0:SW=0:RETURN
  647. 3330 SYSQX,"[217]OU ARE AT THE EVIL WITCH [208]RUDENCE'S [207]LDE [194]LACKSMITHE [211]HOPPE. [200]ERE
  648. 3335 [158]QX,"WITH HER BLASTE FURNACE IS WHERE SHE FORGES HER HORSES SHOES "
  649. 3340 [158]QX,"FOR HER HUNTING RAIDES. (null)HE HEAT FROM THE FURNACE BURNES TO YOUR "
  650. 3345 [158]QX,"SOULE":N[178]0:E[178]0:S[178]0:W[178]0:NE[178]80:NW[178]0:SE[178]0:SW[178]0:[142]
  651. 3350 [158]QX,"RIGHT$ CAN'T LET YOU DO IT AGAIN, YOU HAVEN'T DONE ANYTHING YET!!!":[142]
  652. 3355 [158]QX,"*** PEEKATN(null)CHR$ *** !!! ATNS YOU ENTER HERE, THE GOLD DISAPPEARS IN A "
  653. 3360 [158]QX,"FLASH, AND A HUGE  SET OF STEEL BARS DROPS INTO PLACE LOCKING"
  654. 3365 [158]QX," YOU INTO THE CAVES.":[153]:[137]935
  655. 3370 [158]QX,"(null)OUR HANDS?? (null)OU HAVE TO FIND A CONTAINER.":[142]
  656. 3375 [158]QX,"ATNUURRRGGGHHHHH!!! (null)CREAMS THE WITCH !!! RIGHT$N HER HASTE, THE WITCH"
  657. 3380 [158]QX," FALLS INTO THE BLAST FURNACE!! LEFT$ELP !! RIGHT$'M SMELTING... "
  658. 3385 [158]QX,"SMELTING... IS THE LAST SHE BREATHS.":[142]
  659. 3390 [158]QX,"(null)HE TUNNELS IN HERE ARE VERY CONFUSING. (null)OU WILL NEVER GET OUT ALIVE."
  660. 3395 [142]
  661. 3400 [158]QX,"(null)OU SLIPPED AND FELL ON THE BANANA PEEL, WHY NOT TRY AGAIN?":[142]
  662. 3405 [158]QX,"AREN'T YOU ??? (null)ELL THAT'S ALL YOU NEED TO KNOW ABOUT HOW YOU ARE"
  663. 3410 [158]QX," DOING.":[142]
  664. 3415 [158]QX," KILL THE "[170]NO$:[142]
  665. 3420 [158]QX,"(null)HE FOREST IS VERY DARK. (null)OST TRAILS
  666. 3425 SYSQX,"SEEM ALIKE AND YOU CANNOT GET YOUR BEARINGS IN HERE.":RETURN
  667. 3430 :
  668. 3435 END
  669. 3440 :
  670. 3445 FOR I=319 TO 384
  671. 3450 READ A: POKE I,A: NEXT
  672. 3455 POKE 251, 0
  673. 3460 POKE 252, 192
  674. 3465 FOR I=0 TO 11: READ A$
  675. 3470 SYS 319,A$: NEXT: RETURN
  676. 3475 :
  677. 3480 DATA  32, 253, 174,  32, 158, 173
  678. 3485 DATA  32, 163, 182, 133,  36, 162
  679. 3490 DATA   0, 160, 255,  32, 102,   1
  680. 3495 DATA  10,  10,  10,  10, 133,  37
  681. 3500 DATA  32, 102,   1,   5,  37, 129
  682. 3505 DATA 251, 230, 251, 208, 236, 230
  683. 3510 DATA 252, 208, 232, 200, 196,  36
  684. 3515 DATA 240,  16, 177,  34, 201,  81
  685. 3520 DATA 176,  13, 201,  65, 144,   9
  686. 3525 DATA 233,   1,  41,  15,  16,   2
  687. 3530 DATA 104, 104,  96,  76,   8, 175
  688. 3535 :
  689. 3540 DATACAPNKOCAJOKNCAKDLGINIGMAKAAALBCCJJIIMAMIMMIGMANAPFKJAAJJIIMAKJIIIFPLKJ
  690. 3545 DATAMAIFPMKFNDINIFMAMJCIJAADDIOJCIBIGNIGMAMJCILAAJDIKFPLKEPMCABOKLGAKJCHDI
  691. 3550 DATAONIFMAKILBPLMJCAPAAIIIMAPPPACJBIJAPCKJAAJBPLJIEIINIHMAKFPLKEPMCABOKLGI
  692. 3555 DATABIGFPLIFPLOGPLJAACOGPMKNIGMADIONIHMAINIGMACANHKKEMCGMAGAAAAAAAMBMINAPH
  693. 3560 DATAKNAANNCJADINAANNKNBFNAINPIMAIMBFNAKNBBNAINPNMACJPIAJADINBBNACMAANNHAPL
  694. 3565 DATAFAEBKNBCNAOJDCJAAECJAHPAPFIKAJDAINAANNCJADINNPMAOKOKOKINAANNKNAANNEKEK
  695. 3570 DATAOKENAANNEKEKOKENAANNEKEKEJADENAANNJBKOOGKONAACOGKPKOAANNOAEALALPKOAANN
  696. 3575 DATABAPHKJAAINBFNAKJBLINBBNAIKAKAKLAAHKJEAIFJAEMCLPFKJAAIFJAEMDDPGKCAIEKEI
  697. 3580 DATACADDMBCADDMBKNAANNCJBDEJDALAACCJBDINAANNCADDMBGIMKNAODGAENCNEFAFACHIKC
  698. 3585 DATAAAIOAABIKAAIJIAKAKENAABICJAEPAPGKNAABIEKHOAAADIINAOMOINAOHEMIKADKNAABM
  699. 3590 DATAEJAIINAABMKFAGMFCCPAADEMJMPJKJAFIFDBCAFAABKOABAFIGAHKNAAAFIFAGNAAEOIIO
  700. 3595 DATAFPADKAAELJAA
  701.